;;;QQ:67762207
[@Area10_Map1]
{
#IF
#ACT
loadvalue A1 "QuestDiary\AreaQuest\ChoBoGuide10\Humrecord.txt" [] [¼1]


#IF
!CheckHum DQ802_001 1
CheckMonMap "DQ802_001" 1 аǯ
#ACT
goto @Area10_Map_MonClear

#IF
CheckHum DQ802_001 1
CheckMonMap "DQ802_001" 1 аǯ
#ACT
Enter_Fail
break
#SAY
_ʲôϴν<$OUTPUT(A1)>ƺûһ°ɡ\\
_<  /@exit>

#IF
#ACT
savevalue "QuestDiary\AreaQuest\ChoBoGuide10\Humrecord.txt" [] [¼1] %A0


#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 4
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 5
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 6
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 7
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 8
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 10
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 11
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 12
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 17
#ACT
Enter_fail
goto @Area10_Map1_Event
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 19
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 20
#ACT
goto @Area10_Map1_Enter
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 22
#ACT
goto @Area10_Map1_Enter
break

#ELSEACT
Enter_Fail

#IF
check [110] 1
check [111] 0
#ACT
FormatStr "FLD_CHAR='%s'" %USERNAME
ReadValueSQL "TBL_BasicCharQuest" %A9 "FLD_CHAR,FLD_STATUS1,FLD_STATUS1_RDY,FLD_MAKEIDX" [@Area10_Map1Read]

[@Area10_Map1Read()]
#IF
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(2)
Mov D1 %ARG(3)

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 4
#SAY
_(Ǽ볤ڵĵط? Ҫȥȷһ¡)\\
_<  /@exit>

#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 5
#SAY
_(Ǽ볤ڵĵط? Ҫȥȷһ¡)\\
_<  /@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 6
#SAY
_(Ǽ볤ڵĵط? Ҫȥȷһ¡)\\
_<  /@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 7
#SAY
_(Ǽ볤ڵĵط? Ҫȥȷһ¡)\\
_<  /@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 8
#SAY
_(Ǽ볤ڵĵط? Ҫȥȷһ¡)\\
_<  /@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 10
#SAY
_(Ǽ볤ڵĵط? Ҫȥȷһ¡)\\
_<  /@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 11
#SAY
_(Ǽ볤ڵĵط? Ҫȥȷһ¡)\\
_<  /@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 12
#SAY
_(Ǽ볤ڵĵط? Ҫȥȷһ¡)\\
_<  /@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 17
#SAY
_(Ǽ볤ڵĵط? Ҫȥȷһ¡)\\
_<  /@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 19
#SAY
_(Ǽ볤ڵĵط? Ҫȥȷһ¡)\\
_<  /@exit>
#ACT
break

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 22
#SAY
_(Ǽ볤ڵĵط? Ҫȥȷһ¡)\\
_<  /@exit>
#ACT
break
#ELSEACT
Enter_Fail
break

[@Area10_Map_MonClear]
#IF
#ACT
Monclear DQ802_001

[@Area10_Map1_Enter]
#IF
#ACT
Enter_Ok

[@Area10_Map1_Event]
#IF
checkitem ֮ 1
#SAY
_ǺǺ...ΪҲᱻܵ...ҿץˡ\\
_<ѵ...ħ! ҵ......޷ƶ/@Area10_Map1_1>
#ELSESAY
_(Ͽ{FCOLOR/10}֮{FCOLOR/12}볤ɡ)\\
_<  /@exit>

[@Area10_Map1_1]
#IF
#SAY
_Ϊƽ͵ĺĲŵѨ..Ҫ¡ҵļҵĴ֮Ӿ? ҪǰﲻͲ...\\
_<ôղȺͽ...ɵ?/@Area10_Map1_2>

[@Area10_Map1_2]
#IF
#SAY
_ҲϣɵĽѴ֮ûصĴ̿͡\\
_<ֻõħƷСˡ/@Area10_Map1_3>

[@Area10_Map1_3]
#IF
#SAY
_...ѵҿС͵? Ҳǰŵļ볤ðɣѴ֮ӵķҰིǰļ볤õɽҲѴ֮ڵļ볤ҡǳ׵.... \\
_<Ϊ˱Ů޻ħ̵İ?/@Area10_Map1_4>

[@Area10_Map1_4]
#IF
#SAY
_Ǹʧ¼Ҹɵġʱʧ¼Ҿͼ޻ħ̡ҾͿ˭֪ء˵ħ̵ĽŮι... \\
_<Ǳħ̵˸֪ܵļһ!/@Area10_Map1_5>
[@Area10_Map1_5]
#IF
#SAY
_ҪϹ˵Գħ̵Ȯ⹤ѵ? ħѾ಻ˡ\
_ħ̵Ľͼ볤ͽǾ׵ĲﶼʹͽһֲþǴߡڻþ°ı졣\\
_<һ/@Area10_Map1_6>

[@Area10_Map1_6]
#IF
#SAY
_ħʵʾӣ۽ЩͲʹǳΪͽһȥħ̵ָǧ򼵱ҪͽǾԵķӣΥĴҵ볤ʱ֪ʵĿʼܵǴ𣬶ʼ˻ɡ\
_Ҳܽɽͽѹեеʵڡı¼һ죬Ҿ˵֮ǰϽڣҾΪܹ...ֻҵĻ롣һǺ˽ɽ...\\
_<, ʲô?/@Area10_Map1_7>

[@Area10_Map1_7]
#IF
#SAY
_ɽ֪֪еܣԼװ˵Ҫˡǵڶұ˱ѽŵˣü볤ݽ֮ƻҪɱɽ\
_˭Ŀ֪ûһҵĽͽ뿴˭һͬȥ? ݽŵĹ涨ұ̣Ҵı˺󶪽ǯ涴Ѩ\\
_<һ/@Area10_Map1_8>

[@Area10_Map1_8]
#IF
#SAY
_ΪĸҲŻͨص˳Ȼ˳Ϊźɽı޷ȥˡʱ˵Ůʧٵ飬Ҿ뵽˱ҾԾȵ...һͽĶ̬һظ˵¼ħΪλǿʿ\
_Ҽƻе...ΪֹıĻҪãҷǳ⡣\\
_<ôڴô?/@Area10_Map1_9>

[@Area10_Map1_9]
#IF
#SAY
_˵? ˵Լ? Ժ׵ĽĲõġȻԲʹѾɣҪˡҪ֮Ӻɽıߵõһ㲹\
_ҽٱħ̽Ů̵ɱþͻзŭʿһŻұѾ˭ỳ? һѶͺɫŵǿսⰲϢɡ...\\
_<  /@exit>
#ACT
set [199] 1
take ֮ 1
MongenP "D60021,53,30,2" ɫ 2
MongenP "D60022,53,30,2" ǯ7 3
MongenP "D60022,53,30,2"  2
FormatStr "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=18"

}
[@Area10_Map2]
{
#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 12
#ACT
MonClear DQ804_001
goto @Area10_Map2_Enter
break

#IF
check [110] 1
check [111] 0
#ACT
FormatStr "FLD_CHAR='%s'" %USERNAME
ReadValueSQL "TBL_BasicCharQuest" %A9 "FLD_CHAR,FLD_STATUS1,FLD_STATUS1_RDY,FLD_MAKEIDX" [@Area10_Map2Read]

[@Area10_Map2Read()]
#IF
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(2)
Mov D1 %ARG(3)

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 12
#SAY
_(ĵط...ֲЩɭǽͲֿ޷ֻ֣ˡҲҪҵʯͷģߡ)\\
_<  /@exit>
#ACT
break
#ELSEACT
Enter_Fail
break
#ELSESAY
_(ȥ)\\
_<  /@exit>

[@Area10_Map2_Enter]
#IF
#ACT
Delaygoto [Local] 30 @Area10_Map2_1
Enter_Ok

[@Area10_Map2_1]
#IF
CheckPos DQ804_001 25 25 40
#ACT
goto @Area10_Map2_Start
break
#ELSEACT
break

[@Area10_Map2_Start]
#IF
checkPos DQ804_001 23 26 0
#SAY
_(кصĶ, ó? ...ʯϿд֮ӵģ...϶Ǹʯͷģߡʯͷģ߼Ȼҵȥ{FCOLOR/10}ҹ{FCOLOR/12}ɡ)\\
_<  /@exit>
#ACT
give ʯģ 1
Delaygoto [Local] 5 @Area10_Map2_MapMove
FormatStr "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=13"
break

#IF
checkPos DQ804_001 20 32 0
#ACT
Map D60011
Delaygoto [Local] 3 @Area10_Map2Ting
break

#IF
checkPos DQ804_001 14 15 5
#ACT
Map D60022
Delaygoto [Local] 3 @Area10_Map2Ting
break

#IF
checkPos DQ804_001 28 22 3
#SAY
_(ȴ˵ĸо)\\
_<  /@exit>

#ACT
Delaygoto [Local] 3 @Area10_Map2_MapSpell
break

#IF
checkPos DQ804_001 29 28 3
#ACT
Map 0
Delaygoto [Local] 3 @Area10_Map2Ting
break

#IF
checkPos DQ804_001 23 37 0
#ACT
give  10000
Delaygoto [Local] 3 @Area10_Map2_GainGold
break
#SAY
_(ǮѵҲ?)\\
_<  /@exit>

#IF
checkPos DQ804_001 34 11 0
#SAY
_<ʲô?/@Area10_Map2_GainDrunk>
#ACT
Delaygoto [Local] 3 @Area10_Map2_GainDrunk
break

#IF
checkPos DQ804_001 36 31 3
#ACT
map 0
Delaygoto [Local] 3 @Area10_Map2Ting_1
break
#ELSESAY
_(ǿǿزֿĹû취ֻнȫ...)\\
_<  /@exit>
#ELSEACT
MongenP "DQ804_001,25,25,10" ɫ 5
Delaygoto [Local] 100 @Area10_Map2_1
break

[@Area10_Map2_MapMove]
#IF
#ACT
Map D60022

[@Area10_Map2_MapSpell]
#IF
#ACT
Mapspell [firewall] "DQ804_001,15,15,34,31,+D50,+T40,+R25,+H
Delaygoto [Local] 100 @Area10_Map2_1
#SAY
_(зֹߵĻװá)\\
_<  /@exit>

[@Area10_Map2_GainDrunk]
#ACT
give ҩ1000 1
Map 0
Delaygoto [Local] 3 @Area10_Map2_GainDrunk_1
break

[@Area10_Map2_GainDrunk_1]
#SAY
_(Ȼǵ壬ǻǵõһҩٻֿ⿴ɡ)\\
_<  /@exit>

[@Area10_Map2_GainGold]
#ACT
Map 0
Delaygoto [Local] 3 @Area10_Map2_GainGold_1

[@Area10_Map2_GainGold_1]
#SAY
_(ղǮ壬ʲôʱܻزֿ....)\\
_<  /@exit>

[@Area10_Map2Ting]
#SAY
_(Ǹֿһֱӵȥ{FCOLOR/10}255:28{FCOLOR/12}ɡ)\\
_<  /@exit>

[@Area10_Map2Ting_1]
#SAY
_(Ǹֿһֱӵȣȥ{FCOLOR/10}255:28{FCOLOR/12}ɡ)\\
_<  /@exit>

[@Area10_Map3]
{
#IF
#ACT
FormatStr "FLD_CHAR='%s'" %USERNAME
ReadValueSQL "TBL_BasicCharQuest" %A9 "FLD_CHAR,FLD_STATUS1,FLD_STATUS1_RDY,FLD_MAKEIDX" [@Area10_Map3Read]

[@Area10_Map3Read()]
#IF
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(2)
Mov D1 %ARG(3)

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 16
#SAY
_(Ͽ{FCOLOR/10}֮{FCOLOR/12}볤ɡ)\\
_<  /@exit>
#ACT
MongenP "D60011,207,235,1" ʿ 2
ApplyMonEX "D60011,207,235,1" ʿ [MonSide] ǿ
FormatStr "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=17"
Enter_Ok
break
#ELSEACT
Enter_OK

}

[@Area10_Map4]
{
#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 22
#ACT
goto @Area10_Map4_Enter
break

#IF
#ACT
FormatStr "FLD_CHAR='%s'" %USERNAME
ReadValueSQL "TBL_BasicCharQuest" %A9 "FLD_CHAR,FLD_STATUS1,FLD_STATUS1_RDY,FLD_MAKEIDX" [@Area10_Map4Read]

[@Area10_Map4Read()]
#IF
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(1)
Mov D1 %ARG(1)

#IF
Equal A0 %USERNAME
Equal D0 29
Equal D1 22
#ACT
Enter_Ok
#ELSEACT
Enter_Fail

[@Area10_Map4_Enter]
#IF
#ACT
Enter_Ok
set [199] 1
FormatStr "FLD_CHAR='%s'" %USERNAME
UpdateValueSQL "TBL_BasicCharQuest" %A9 "FLD_STATUS1_RDY=17"

}
;;;QQ:67762207
